home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 101 / Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso / pc / new_ugp.dxr / 00052_Crypt Menu Init.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  1.6 KB  |  36 lines
  1. on exitFrame
  2.   set newMenu to CreateMenu([#statusMessage: "Select a Tenka level."])
  3.   SetStatusMember(newMenu, [#statusMember: "crypt status"])
  4.   mmButton(newMenu, [#downMember: "ugpF_61"])
  5.   quitButton(newMenu, [#downMember: "ugpF_71"])
  6.   ShowVolumeControl()
  7.   set gameListSprite to 8
  8.   set gameTxtParams to [#spritenum: gameListSprite, #windowBottom: 404]
  9.   set clueTxtParams to [#spritenum: 7, #memberNum: "crypt clues", #windowBottom: 404, #initText: " "]
  10.   NewVideoDisplay(newMenu, [#cleanup: 1])
  11.   set textList to NewObject(newMenu, "Text Display Class", gameTxtParams)
  12.   NewTextDisplay(newMenu, clueTxtParams)
  13.   set textDisplay to the textDisplay of the currMenu of GetGlobal(#gTitleObject)
  14.   NewTextSlider(newMenu, [#sliderSprite: 15, #sliderBottom: 362, #textDisplay: textList])
  15.   NewTextSlider(newMenu, [#sliderSprite: 14, #sliderBottom: 362, #textDisplay: textDisplay])
  16.   SetGameList(newMenu, gameListSprite)
  17.   cursor(-1)
  18. end
  19.  
  20. on SetGameList newMenu, textListSprite
  21.   global titleDatabase
  22.   set gameList to getrecords(titleDatabase, #all, "crypt")
  23.   if not listp(gameList) then
  24.     put "No games in the crypt"
  25.   else
  26.     set button to BasicButton(newMenu, [#hotSprites: [textListSprite], #statusMessage: "Make a selection."])
  27.     set gameParams to [#gameList: gameList, #memberID: the memberNum of sprite textListSprite, #normalColor: 13, #hiliteColor: 5]
  28.     AddDown(button, NewObject(newMenu, "Game Manager Class", gameParams))
  29.   end if
  30. end
  31.  
  32. on NewTextSlider newMenu, paramList
  33.   set button to BasicButton(newMenu, [#hotSprites: [getProp(paramList, #sliderSprite)]])
  34.   AddDown(button, NewObject(newMenu, "Text Slider Class", paramList))
  35. end
  36.